MacTech 1 to 12

home *** CD-ROM | disk | FTP | other *** search
/ MacTech 1 to 12 / MacTech-vol-1-12.toast / Source / MacTech® Magazine / Volume 02 - 1986 / 02.10 Oct 86.sit / 02.10 Oct 86 / basic source / ZSample.bas < prev next >
MacBinary | 1986-08-29 | 3.6 KB | [TEXT/ZBAS]
open in:
MacOS 8.1 extracted |
Win98 extracted |
DOS extracted
browse contents |
view JSON data |
view as text

This file was processed as: MacBinary (archive/macBinary).
Confidence	Program	Detection	Match Type	Support
`66%`	dexvert	GW-BASIC `(document/gwBasic)`	ext	Supported
`66%`	dexvert	GFA-BASIC Atari `(other/gfaBASICAtari)`	ext	Supported
`10%`	dexvert	MacBinary `(archive/macBinary)`	fallback	Supported
`1%`	dexvert	Amiga BASIC Protected File `(other/amigaBASICProtectedFile)`	ext	Unsupported
`1%`	dexvert	BAS VBDOS Pro 1.0 Source `(other/basVBDOSPro10Source)`	ext	Unsupported
`1%`	dexvert	Visual Basic Tokenized Source `(other/visualBasicTokenizedSource)`	ext	Unsupported
`1%`	dexvert	ZBASIC `(other/zbasic)`	ext	Unsupported
`1%`	dexvert	Text File `(text/txt)`	fallback	Supported
`100%`	file	MacBinary II, inited, Thu Aug 28 20:41:45 1986, modified Thu Aug 28 20:41:45 1986, creator 'ZBAS', type ASCII, 3136 bytes "ZSample.bas" , at 0xcc0 348 bytes resource	default (weak)
`99%`	file	data	default
`74%`	TrID	Macintosh plain text (MacBinary)	default
`25%`	TrID	MacBinary 2	default (weak)
`100%`	siegfried	fmt/1762 MacBinary (II)	default
`100%`	lsar	MacBinary	default
id metadata
key	value
macFileType	`[TEXT]`
macFileCreator	`[ZBAS]`
hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0b 5a 53 61 6d 70 6c | 65 2e 62 61 73 00 00 00 |..ZSampl|e.bas...|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 5a 42 41 | 53 01 00 00 00 00 00 00 |.TEXTZBA|S.......|
|00000050| 00 00 00 00 00 0c 40 00 | 00 01 5c 9b 7a a0 49 9b |......@.|..\.z.I.|
|00000060| 7a a0 49 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |z.I.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 06 1b 00 00 |........|........|
|00000080| 52 45 4d 20 53 41 4d 50 | 4c 45 20 44 45 4d 4f 0d |REM SAMP|LE DEMO.|
|00000090| 52 45 4d 20 4d 61 63 54 | 75 74 6f 72 a9 31 39 38 |REM MacT|utor.198|
|000000a0| 36 0d 52 45 4d 20 42 79 | 20 44 61 76 65 20 4b 65 |6.REM By| Dave Ke|
|000000b0| 6c 6c 79 0d 52 45 4d 20 | 5a 42 41 53 49 43 20 63 |lly.REM |ZBASIC c|
|000000c0| 6f 6e 66 69 67 75 72 61 | 74 69 6f 6e 3a 20 43 6f |onfigura|tion: Co|
|000000d0| 6e 76 65 72 74 20 74 6f | 20 55 70 70 65 72 63 61 |nvert to| Upperca|
|000000e0| 73 65 2c 53 70 61 63 65 | 20 52 65 71 27 64 2c 20 |se,Space| Req'd, |
|000000f0| 4c 6f 63 61 74 65 20 59 | 2c 58 0d 52 45 4d 20 20 |Locate Y|,X.REM  |
|00000100| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000110| 20 20 20 20 20 44 65 66 | 61 75 6c 74 20 76 61 72 |     Def|ault var|
|00000120| 69 61 62 6c 65 20 74 79 | 70 65 20 3d 20 49 0d 57 |iable ty|pe = I.W|
|00000130| 49 4e 44 4f 57 20 4f 46 | 46 0d 43 4f 4f 52 44 49 |INDOW OF|F.COORDI|
|00000140| 4e 41 54 45 20 57 49 4e | 44 4f 57 0d 44 45 46 20 |NATE WIN|DOW.DEF |
|00000150| 4d 4f 55 53 45 3d 31 0d | 44 49 4d 20 46 6f 6e 74 |MOUSE=1.|DIM Font|
|00000160| 28 32 30 29 2c 46 6f 6e | 74 24 28 32 30 29 2c 43 |(20),Fon|t$(20),C|
|00000170| 68 65 63 6b 28 32 30 29 | 2c 50 74 28 31 29 2c 52 |heck(20)|,Pt(1),R|
|00000180| 65 63 74 28 33 29 2c 53 | 69 7a 65 63 68 65 63 6b |ect(3),S|izecheck|
|00000190| 28 36 29 0d 58 31 3d 35 | 30 3a 59 31 3d 31 33 30 |(6).X1=5|0:Y1=130|
|000001a0| 3a 58 32 3d 34 31 30 3a | 59 32 3d 32 34 30 0d 57 |:X2=410:|Y2=240.W|
|000001b0| 49 4e 44 4f 57 20 31 2c | 22 55 6e 74 69 74 6c 65 |INDOW 1,|"Untitle|
|000001c0| 64 22 2c 28 58 31 2c 59 | 31 29 2d 28 58 32 2c 59 |d",(X1,Y|1)-(X2,Y|
|000001d0| 32 29 2c 32 36 35 3a 52 | 45 4d 20 55 73 65 73 20 |2),265:R|EM Uses |
|000001e0| 5a 6f 6f 6d 20 57 69 6e | 64 6f 77 20 77 69 74 68 |Zoom Win|dow with|
|000001f0| 20 6e 6f 20 63 6c 6f 73 | 65 20 62 6f 78 0d 4d 45 | no clos|e box.ME|
|00000200| 4e 55 20 31 2c 30 2c 31 | 2c 22 46 69 6c 65 22 0d |NU 1,0,1|,"File".|
|00000210| 4d 45 4e 55 20 31 2c 31 | 2c 31 2c 22 2f 4e 4e 65 |MENU 1,1|,1,"/NNe|
|00000220| 77 22 0d 4d 45 4e 55 20 | 31 2c 32 2c 31 2c 22 2f |w".MENU |1,2,1,"/|
|00000230| 4f 4f 70 65 6e 22 0d 4d | 45 4e 55 20 31 2c 33 2c |OOpen".M|ENU 1,3,|
|00000240| 31 2c 22 43 6c 6f 73 65 | 22 0d 4d 45 4e 55 20 31 |1,"Close|".MENU 1|
|00000250| 2c 34 2c 31 2c 22 53 61 | 76 65 22 0d 4d 45 4e 55 |,4,1,"Sa|ve".MENU|
|00000260| 20 31 2c 35 2c 31 2c 22 | 53 61 76 65 20 41 73 2e | 1,5,1,"|Save As.|
|00000270| 2e 2e 22 0d 4d 45 4e 55 | 20 31 2c 36 2c 31 2c 22 |..".MENU| 1,6,1,"|
|00000280| 2f 51 51 75 69 74 22 0d | 45 44 49 54 20 4d 45 4e |/QQuit".|EDIT MEN|
|00000290| 55 20 32 0d 4d 45 4e 55 | 20 33 2c 30 2c 31 2c 22 |U 2.MENU| 3,0,1,"|
|000002a0| 46 6f 6e 74 22 0d 22 47 | 65 74 46 6f 6e 74 73 22 |Font"."G|etFonts"|
|000002b0| 3a 0d 49 3d 31 0d 43 41 | 4c 4c 20 47 45 54 46 4f |:.I=1.CA|LL GETFO|
|000002c0| 4e 54 4e 41 4d 45 28 30 | 2c 41 24 29 0d 49 46 20 |NTNAME(0|,A$).IF |
|000002d0| 4c 45 4e 28 41 24 29 20 | 54 48 45 4e 20 46 6f 6e |LEN(A$) |THEN Fon|
|000002e0| 74 24 28 49 29 3d 41 24 | 3a 46 6f 6e 74 28 49 29 |t$(I)=A$|:Font(I)|
|000002f0| 3d 30 3a 49 3d 49 2b 31 | 0d 46 4f 52 20 58 3d 32 |=0:I=I+1|.FOR X=2|
|00000300| 20 54 4f 20 31 32 37 0d | 43 41 4c 4c 20 47 45 54 | TO 127.|CALL GET|
|00000310| 46 4f 4e 54 4e 41 4d 45 | 28 58 2c 41 24 29 0d 49 |FONTNAME|(X,A$).I|
|00000320| 46 20 4c 45 4e 28 41 24 | 29 20 54 48 45 4e 20 46 |F LEN(A$|) THEN F|
|00000330| 6f 6e 74 24 28 49 29 3d | 41 24 3a 46 6f 6e 74 28 |ont$(I)=|A$:Font(|
|00000340| 49 29 3d 58 3a 49 3d 49 | 2b 31 0d 4e 45 58 54 20 |I)=X:I=I|+1.NEXT |
|00000350| 58 0d 4e 75 6d 62 65 72 | 6f 66 46 6f 6e 74 73 3d |X.Number|ofFonts=|
|00000360| 49 2d 31 0d 46 4f 52 20 | 4a 3d 31 20 54 4f 20 4e |I-1.FOR |J=1 TO N|
|00000370| 75 6d 62 65 72 6f 66 46 | 6f 6e 74 73 0d 49 46 20 |umberofF|onts.IF |
|00000380| 46 6f 6e 74 28 4a 29 3d | 33 20 54 48 45 4e 20 43 |Font(J)=|3 THEN C|
|00000390| 68 65 63 6b 28 4a 29 3d | 32 20 45 4c 53 45 20 43 |heck(J)=|2 ELSE C|
|000003a0| 68 65 63 6b 28 4a 29 3d | 31 0d 4d 45 4e 55 20 33 |heck(J)=|1.MENU 3|
|000003b0| 2c 4a 2c 43 68 65 63 6b | 28 4a 29 2c 46 6f 6e 74 |,J,Check|(J),Font|
|000003c0| 24 28 4a 29 0d 4e 45 58 | 54 20 4a 0d 46 6f 6e 74 |$(J).NEX|T J.Font|
|000003d0| 73 74 79 6c 65 39 20 20 | 3d 20 46 4e 20 52 45 41 |style9  |= FN REA|
|000003e0| 4c 46 4f 4e 54 28 33 2c | 39 29 0d 46 6f 6e 74 73 |LFONT(3,|9).Fonts|
|000003f0| 74 79 6c 65 31 30 20 3d | 20 46 4e 20 52 45 41 4c |tyle10 =| FN REAL|
|00000400| 46 4f 4e 54 28 33 2c 31 | 30 29 0d 46 6f 6e 74 73 |FONT(3,1|0).Fonts|
|00000410| 74 79 6c 65 31 32 20 3d | 20 46 4e 20 52 45 41 4c |tyle12 =| FN REAL|
|00000420| 46 4f 4e 54 28 33 2c 31 | 32 29 0d 46 6f 6e 74 73 |FONT(3,1|2).Fonts|
|00000430| 74 79 6c 65 31 34 20 3d | 20 46 4e 20 52 45 41 4c |tyle14 =| FN REAL|
|00000440| 46 4f 4e 54 28 33 2c 31 | 34 29 0d 46 6f 6e 74 73 |FONT(3,1|4).Fonts|
|00000450| 74 79 6c 65 31 38 20 3d | 20 46 4e 20 52 45 41 4c |tyle18 =| FN REAL|
|00000460| 46 4f 4e 54 28 33 2c 31 | 38 29 0d 46 6f 6e 74 73 |FONT(3,1|8).Fonts|
|00000470| 74 79 6c 65 32 34 20 3d | 20 46 4e 20 52 45 41 4c |tyle24 =| FN REAL|
|00000480| 46 4f 4e 54 28 33 2c 32 | 34 29 0d 46 4f 52 20 4a |FONT(3,2|4).FOR J|
|00000490| 3d 31 20 54 4f 20 36 0d | 53 69 7a 65 63 68 65 63 |=1 TO 6.|Sizechec|
|000004a0| 6b 28 4a 29 3d 31 0d 4e | 45 58 54 20 4a 0d 53 69 |k(J)=1.N|EXT J.Si|
|000004b0| 7a 65 63 68 65 63 6b 28 | 33 29 3d 32 0d 47 4f 53 |zecheck(|3)=2.GOS|
|000004c0| 55 42 20 22 46 6f 6e 74 | 73 69 7a 65 6d 65 6e 75 |UB "Font|sizemenu|
|000004d0| 22 0d 54 45 58 54 20 33 | 2c 31 32 0d 4f 4e 20 4d |".TEXT 3|,12.ON M|
|000004e0| 45 4e 55 20 47 4f 53 55 | 42 20 22 6d 65 6e 75 65 |ENU GOSU|B "menue|
|000004f0| 76 65 6e 74 22 0d 4d 45 | 4e 55 20 4f 4e 0d 22 6c |vent".ME|NU ON."l|
|00000500| 6f 6f 70 22 3a 0d 57 78 | 3d 57 49 4e 44 4f 57 28 |oop":.Wx|=WINDOW(|
|00000510| 32 29 3a 57 79 3d 57 49 | 4e 44 4f 57 28 33 29 3a |2):Wy=WI|NDOW(3):|
|00000520| 52 65 63 74 28 30 29 3d | 30 3a 52 65 63 74 28 31 |Rect(0)=|0:Rect(1|
|00000530| 29 3d 30 3a 52 65 63 74 | 28 32 29 3d 57 78 3a 52 |)=0:Rect|(2)=Wx:R|
|00000540| 65 63 74 28 33 29 3d 57 | 79 0d 58 3d 4d 4f 55 53 |ect(3)=W|y.X=MOUS|
|00000550| 45 28 30 29 3a 50 74 28 | 30 29 3d 4d 4f 55 53 45 |E(0):Pt(|0)=MOUSE|
|00000560| 28 31 29 3a 50 74 28 31 | 29 3d 4d 4f 55 53 45 28 |(1):Pt(1|)=MOUSE(|
|00000570| 32 29 0d 52 65 73 75 6c | 74 20 3d 20 46 4e 20 50 |2).Resul|t = FN P|
|00000580| 54 49 4e 52 45 43 54 28 | 50 74 28 30 29 2c 52 65 |TINRECT(|Pt(0),Re|
|00000590| 63 74 28 30 29 29 0d 49 | 46 20 52 65 73 75 6c 74 |ct(0)).I|F Result|
|000005a0| 3d 30 20 54 48 45 4e 20 | 43 55 52 53 4f 52 3d 30 |=0 THEN |CURSOR=0|
|000005b0| 20 45 4c 53 45 20 43 55 | 52 53 4f 52 20 3d 20 31 | ELSE CU|RSOR = 1|
|000005c0| 0d 47 4f 54 4f 20 22 6c | 6f 6f 70 22 0d 22 46 6f |.GOTO "l|oop"."Fo|
|000005d0| 6e 74 73 69 7a 65 6d 65 | 6e 75 22 3a 0d 4d 45 4e |ntsizeme|nu":.MEN|
|000005e0| 55 20 4f 46 46 0d 4d 45 | 4e 55 20 34 2c 30 2c 31 |U OFF.ME|NU 4,0,1|
|000005f0| 2c 22 53 69 7a 65 22 0d | 49 46 20 46 6f 6e 74 73 |,"Size".|IF Fonts|
|00000600| 74 79 6c 65 39 20 20 3d | 20 31 20 54 48 45 4e 20 |tyle9  =| 1 THEN |
|00000610| 4d 45 4e 55 20 34 2c 31 | 2c 53 69 7a 65 63 68 65 |MENU 4,1|,Sizeche|
|00000620| 63 6b 28 31 29 2c 22 3c | 4f 39 20 50 6f 69 6e 74 |ck(1),"<|O9 Point|
|00000630| 22 20 20 45 4c 53 45 20 | 4d 45 4e 55 20 34 2c 31 |"  ELSE |MENU 4,1|
|00000640| 2c 53 69 7a 65 63 68 65 | 63 6b 28 31 29 2c 22 39 |,Sizeche|ck(1),"9|
|00000650| 20 50 6f 69 6e 74 22 0d | 49 46 20 46 6f 6e 74 73 | Point".|IF Fonts|
|00000660| 74 79 6c 65 31 30 20 3d | 20 31 20 54 48 45 4e 20 |tyle10 =| 1 THEN |
|00000670| 4d 45 4e 55 20 34 2c 32 | 2c 53 69 7a 65 63 68 65 |MENU 4,2|,Sizeche|
|00000680| 63 6b 28 32 29 2c 22 3c | 4f 31 30 20 50 6f 69 6e |ck(2),"<|O10 Poin|
|00000690| 74 22 20 45 4c 53 45 20 | 4d 45 4e 55 20 34 2c 32 |t" ELSE |MENU 4,2|
|000006a0| 2c 53 69 7a 65 63 68 65 | 63 6b 28 32 29 2c 22 31 |,Sizeche|ck(2),"1|
|000006b0| 30 20 50 6f 69 6e 74 22 | 0d 49 46 20 46 6f 6e 74 |0 Point"|.IF Font|
|000006c0| 73 74 79 6c 65 31 32 20 | 3d 20 31 20 54 48 45 4e |style12 |= 1 THEN|
|000006d0| 20 4d 45 4e 55 20 34 2c | 33 2c 53 69 7a 65 63 68 | MENU 4,|3,Sizech|
|000006e0| 65 63 6b 28 33 29 2c 22 | 3c 4f 31 32 20 50 6f 69 |eck(3),"|<O12 Poi|
|000006f0| 6e 74 22 20 45 4c 53 45 | 20 4d 45 4e 55 20 34 2c |nt" ELSE| MENU 4,|
|00000700| 33 2c 53 69 7a 65 63 68 | 65 63 6b 28 33 29 2c 22 |3,Sizech|eck(3),"|
|00000710| 31 32 20 50 6f 69 6e 74 | 22 0d 49 46 20 46 6f 6e |12 Point|".IF Fon|
|00000720| 74 73 74 79 6c 65 31 34 | 20 3d 20 31 20 54 48 45 |tstyle14| = 1 THE|
|00000730| 4e 20 4d 45 4e 55 20 34 | 2c 34 2c 53 69 7a 65 63 |N MENU 4|,4,Sizec|
|00000740| 68 65 63 6b 28 34 29 2c | 22 3c 4f 31 34 20 50 6f |heck(4),|"<O14 Po|
|00000750| 69 6e 74 22 20 45 4c 53 | 45 20 4d 45 4e 55 20 34 |int" ELS|E MENU 4|
|00000760| 2c 34 2c 53 69 7a 65 63 | 68 65 63 6b 28 34 29 2c |,4,Sizec|heck(4),|
|00000770| 22 31 34 20 50 6f 69 6e | 74 22 0d 49 46 20 46 6f |"14 Poin|t".IF Fo|
|00000780| 6e 74 73 74 79 6c 65 31 | 38 20 3d 20 31 20 54 48 |ntstyle1|8 = 1 TH|
|00000790| 45 4e 20 4d 45 4e 55 20 | 34 2c 35 2c 53 69 7a 65 |EN MENU |4,5,Size|
|000007a0| 63 68 65 63 6b 28 35 29 | 2c 22 3c 4f 31 38 20 50 |check(5)|,"<O18 P|
|000007b0| 6f 69 6e 74 22 20 45 4c | 53 45 20 4d 45 4e 55 20 |oint" EL|SE MENU |
|000007c0| 34 2c 35 2c 53 69 7a 65 | 63 68 65 63 6b 28 35 29 |4,5,Size|check(5)|
|000007d0| 2c 22 31 38 20 50 6f 69 | 6e 74 22 0d 49 46 20 46 |,"18 Poi|nt".IF F|
|000007e0| 6f 6e 74 73 74 79 6c 65 | 32 34 20 3d 20 31 20 54 |ontstyle|24 = 1 T|
|000007f0| 48 45 4e 20 4d 45 4e 55 | 20 34 2c 36 2c 53 69 7a |HEN MENU| 4,6,Siz|
|00000800| 65 63 68 65 63 6b 28 36 | 29 2c 22 3c 4f 32 34 20 |echeck(6|),"<O24 |
|00000810| 50 6f 69 6e 74 22 20 45 | 4c 53 45 20 4d 45 4e 55 |Point" E|LSE MENU|
|00000820| 20 34 2c 36 2c 53 69 7a | 65 63 68 65 63 6b 28 36 | 4,6,Siz|echeck(6|
|00000830| 29 2c 22 32 34 20 50 6f | 69 6e 74 22 0d 4d 45 4e |),"24 Po|int".MEN|
|00000840| 55 20 4f 4e 0d 52 45 54 | 55 52 4e 0d 22 6d 65 6e |U ON.RET|URN."men|
|00000850| 75 65 76 65 6e 74 22 3a | 0d 4d 65 6e 75 6e 75 6d |uevent":|.Menunum|
|00000860| 62 65 72 20 3d 20 4d 45 | 4e 55 28 30 29 0d 4d 65 |ber = ME|NU(0).Me|
|00000870| 6e 75 69 74 65 6d 20 3d | 20 4d 45 4e 55 28 31 29 |nuitem =| MENU(1)|
|00000880| 0d 4d 45 4e 55 3a 4d 45 | 4e 55 20 4f 46 46 0d 4f |.MENU:ME|NU OFF.O|
|00000890| 4e 20 4d 65 6e 75 6e 75 | 6d 62 65 72 20 47 4f 53 |N Menunu|mber GOS|
|000008a0| 55 42 20 22 46 69 6c 65 | 22 2c 22 45 64 69 74 22 |UB "File|","Edit"|
|000008b0| 2c 22 46 6f 6e 74 22 2c | 22 53 69 7a 65 22 0d 4d |,"Font",|"Size".M|
|000008c0| 45 4e 55 20 4f 4e 0d 52 | 45 54 55 52 4e 0d 22 46 |ENU ON.R|ETURN."F|
|000008d0| 69 6c 65 22 3a 0d 4f 4e | 20 4d 65 6e 75 69 74 65 |ile":.ON| Menuite|
|000008e0| 6d 20 47 4f 53 55 42 20 | 22 4e 65 77 22 2c 22 4f |m GOSUB |"New","O|
|000008f0| 70 65 6e 22 2c 22 43 6c | 6f 73 65 22 2c 22 53 61 |pen","Cl|ose","Sa|
|00000900| 76 65 22 2c 22 53 61 76 | 65 41 73 22 2c 22 51 75 |ve","Sav|eAs","Qu|
|00000910| 69 74 22 0d 52 45 54 55 | 52 4e 0d 22 45 64 69 74 |it".RETU|RN."Edit|
|00000920| 22 3a 0d 52 45 54 55 52 | 4e 0d 22 46 6f 6e 74 22 |":.RETUR|N."Font"|
|00000930| 3a 0d 46 4f 52 20 4a 3d | 31 20 54 4f 20 4e 75 6d |:.FOR J=|1 TO Num|
|00000940| 62 65 72 6f 66 46 6f 6e | 74 73 0d 43 68 65 63 6b |berofFon|ts.Check|
|00000950| 28 4a 29 3d 31 0d 4d 45 | 4e 55 20 33 2c 4a 2c 43 |(J)=1.ME|NU 3,J,C|
|00000960| 68 65 63 6b 28 4a 29 0d | 4e 45 58 54 20 4a 0d 43 |heck(J).|NEXT J.C|
|00000970| 68 65 63 6b 28 4d 65 6e | 75 69 74 65 6d 29 3d 32 |heck(Men|uitem)=2|
|00000980| 0d 4d 45 4e 55 20 33 2c | 4d 65 6e 75 69 74 65 6d |.MENU 3,|Menuitem|
|00000990| 2c 43 68 65 63 6b 28 4d | 65 6e 75 69 74 65 6d 29 |,Check(M|enuitem)|
|000009a0| 0d 46 6f 6e 74 73 74 79 | 6c 65 39 20 20 3d 20 46 |.Fontsty|le9  = F|
|000009b0| 4e 20 52 45 41 4c 46 4f | 4e 54 28 46 6f 6e 74 28 |N REALFO|NT(Font(|
|000009c0| 4d 65 6e 75 69 74 65 6d | 29 2c 39 29 0d 46 6f 6e |Menuitem|),9).Fon|
|000009d0| 74 73 74 79 6c 65 31 30 | 20 3d 20 46 4e 20 52 45 |tstyle10| = FN RE|
|000009e0| 41 4c 46 4f 4e 54 28 46 | 6f 6e 74 28 4d 65 6e 75 |ALFONT(F|ont(Menu|
|000009f0| 69 74 65 6d 29 2c 31 30 | 29 0d 46 6f 6e 74 73 74 |item),10|).Fontst|
|00000a00| 79 6c 65 31 32 20 3d 20 | 46 4e 20 52 45 41 4c 46 |yle12 = |FN REALF|
|00000a10| 4f 4e 54 28 46 6f 6e 74 | 28 4d 65 6e 75 69 74 65 |ONT(Font|(Menuite|
|00000a20| 6d 29 2c 31 32 29 0d 46 | 6f 6e 74 73 74 79 6c 65 |m),12).F|ontstyle|
|00000a30| 31 34 20 3d 20 46 4e 20 | 52 45 41 4c 46 4f 4e 54 |14 = FN |REALFONT|
|00000a40| 28 46 6f 6e 74 28 4d 65 | 6e 75 69 74 65 6d 29 2c |(Font(Me|nuitem),|
|00000a50| 31 34 29 0d 46 6f 6e 74 | 73 74 79 6c 65 31 38 20 |14).Font|style18 |
|00000a60| 3d 20 46 4e 20 52 45 41 | 4c 46 4f 4e 54 28 46 6f |= FN REA|LFONT(Fo|
|00000a70| 6e 74 28 4d 65 6e 75 69 | 74 65 6d 29 2c 31 38 29 |nt(Menui|tem),18)|
|00000a80| 0d 46 6f 6e 74 73 74 79 | 6c 65 32 34 20 3d 20 46 |.Fontsty|le24 = F|
|00000a90| 4e 20 52 45 41 4c 46 4f | 4e 54 28 46 6f 6e 74 28 |N REALFO|NT(Font(|
|00000aa0| 4d 65 6e 75 69 74 65 6d | 29 2c 32 34 29 0d 47 4f |Menuitem|),24).GO|
|00000ab0| 53 55 42 20 22 46 6f 6e | 74 73 69 7a 65 6d 65 6e |SUB "Fon|tsizemen|
|00000ac0| 75 22 0d 54 45 58 54 20 | 46 6f 6e 74 28 4d 65 6e |u".TEXT |Font(Men|
|00000ad0| 75 69 74 65 6d 29 0d 52 | 45 54 55 52 4e 0d 22 53 |uitem).R|ETURN."S|
|00000ae0| 69 7a 65 22 3a 0d 46 4f | 52 20 4a 3d 31 20 54 4f |ize":.FO|R J=1 TO|
|00000af0| 20 36 0d 53 69 7a 65 63 | 68 65 63 6b 28 4a 29 3d | 6.Sizec|heck(J)=|
|00000b00| 31 3a 4d 45 4e 55 20 34 | 2c 4a 2c 31 0d 4e 45 58 |1:MENU 4|,J,1.NEX|
|00000b10| 54 20 4a 0d 53 69 7a 65 | 63 68 65 63 6b 28 4d 65 |T J.Size|check(Me|
|00000b20| 6e 75 69 74 65 6d 29 3d | 20 32 0d 4d 45 4e 55 20 |nuitem)=| 2.MENU |
|00000b30| 34 2c 4d 65 6e 75 69 74 | 65 6d 2c 32 0d 49 46 20 |4,Menuit|em,2.IF |
|00000b40| 4d 65 6e 75 69 74 65 6d | 3d 31 20 54 48 45 4e 20 |Menuitem|=1 THEN |
|00000b50| 54 45 58 54 20 2c 20 39 | 0d 49 46 20 4d 65 6e 75 |TEXT , 9|.IF Menu|
|00000b60| 69 74 65 6d 3d 32 20 54 | 48 45 4e 20 54 45 58 54 |item=2 T|HEN TEXT|
|00000b70| 20 2c 31 30 0d 49 46 20 | 4d 65 6e 75 69 74 65 6d | ,10.IF |Menuitem|
|00000b80| 3d 33 20 54 48 45 4e 20 | 54 45 58 54 20 2c 31 32 |=3 THEN |TEXT ,12|
|00000b90| 0d 49 46 20 4d 65 6e 75 | 69 74 65 6d 3d 34 20 54 |.IF Menu|item=4 T|
|00000ba0| 48 45 4e 20 54 45 58 54 | 20 2c 31 34 0d 49 46 20 |HEN TEXT| ,14.IF |
|00000bb0| 4d 65 6e 75 69 74 65 6d | 3d 35 20 54 48 45 4e 20 |Menuitem|=5 THEN |
|00000bc0| 54 45 58 54 20 2c 31 38 | 0d 49 46 20 4d 65 6e 75 |TEXT ,18|.IF Menu|
|00000bd0| 69 74 65 6d 3d 36 20 54 | 48 45 4e 20 54 45 58 54 |item=6 T|HEN TEXT|
|00000be0| 20 2c 32 34 0d 52 45 54 | 55 52 4e 0d 22 4e 65 77 | ,24.RET|URN."New|
|00000bf0| 22 3a 0d 50 52 49 4e 54 | 20 22 4e 65 77 20 53 65 |":.PRINT| "New Se|
|00000c00| 6c 65 63 74 65 64 22 0d | 52 45 54 55 52 4e 0d 22 |lected".|RETURN."|
|00000c10| 4f 70 65 6e 22 3a 0d 50 | 52 49 4e 54 20 22 4f 70 |Open":.P|RINT "Op|
|00000c20| 65 6e 20 53 65 6c 65 63 | 74 65 64 22 0d 52 45 54 |en Selec|ted".RET|
|00000c30| 55 52 4e 0d 22 43 6c 6f | 73 65 22 3a 0d 50 52 49 |URN."Clo|se":.PRI|
|00000c40| 4e 54 20 22 43 6c 6f 73 | 65 20 53 65 6c 65 63 74 |NT "Clos|e Select|
|00000c50| 65 64 22 0d 52 45 54 55 | 52 4e 0d 22 53 61 76 65 |ed".RETU|RN."Save|
|00000c60| 22 3a 0d 50 52 49 4e 54 | 20 22 53 61 76 65 20 53 |":.PRINT| "Save S|
|00000c70| 65 6c 65 63 74 65 64 22 | 0d 52 45 54 55 52 4e 0d |elected"|.RETURN.|
|00000c80| 22 53 61 76 65 41 73 22 | 3a 0d 50 52 49 4e 54 20 |"SaveAs"|:.PRINT |
|00000c90| 22 53 61 76 65 41 73 20 | 53 65 6c 65 63 74 65 64 |"SaveAs |Selected|
|00000ca0| 22 0d 52 45 54 55 52 4e | 0d 22 51 75 69 74 22 3a |".RETURN|."Quit":|
|00000cb0| 0d 4d 45 4e 55 20 52 45 | 53 45 54 0d 45 4e 44 0d |.MENU RE|SET.END.|
|00000cc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000cd0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ce0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000cf0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d00| 00 00 01 00 00 00 01 16 | 00 00 00 16 00 00 00 46 |........|.......F|
|00000d10| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000d20| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000d30| 0b 5a 53 61 6d 70 6c 65 | 2e 62 61 73 02 00 00 00 |.ZSample|.bas....|
|00000d40| 54 45 58 54 5a 42 41 53 | 01 00 00 00 00 80 00 00 |TEXTZBAS|........|
|00000d50| 00 00 54 45 58 54 5a 42 | 41 53 01 00 00 00 00 80 |..TEXTZB|AS......|
|00000d60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000d70| 00 00 9b 7a 59 92 00 00 | 0c 40 00 00 01 5c ff ff |...zY...|.@...\..|
|00000d80| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000d90| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000da0| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000db0| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000dc0| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000dd0| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000de0| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000df0| ff ff ff ff ff ff ff ff | ff ff ff ff ff ff ff ff |........|........|
|00000e00| 00 00 00 0a 00 09 06 4d | 6f 6e 61 63 6f 00 00 00 |.......M|onaco...|
|00000e10| 00 04 00 06 00 08 00 00 | 01 00 00 00 01 16 00 00 |........|........|
|00000e20| 00 16 00 00 00 46 00 00 | cc 24 02 94 00 00 00 1c |.....F..|.$......|
|00000e30| 00 46 00 01 45 46 4e 54 | 00 00 00 12 45 54 41 42 |.F..EFNT|....ETAB|
|00000e40| 00 00 00 1e 03 eb ff ff | 00 00 00 00 00 00 d7 12 |........|........|
|00000e50| 03 ec ff ff 00 00 00 0e | 00 00 d7 16 00 00 00 00 |........|........|
|00000e60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000e70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+